home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er
/
64ER_CD.iso
/
91xx
/
9105.d64
/
arc 1.5.src
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
1995-03-30
|
13KB
|
350 lines
10 SYS36864
20 .OPT OO
30 *= 49152
50 ZIEL =2049
90 SER1 =1 ; VERSIONSNUMMER
92 SER2 =5 ; SEKUNDAER
100 CINT =65409
102 OPEN =$FFC0
104 CLOSE =$FFC3
106 CHKOUT =$FFC9
108 CLRCHN =$FFCC
110 PRINT =$FFD2
112 GET =$FFE4
114 PTR =2
116 CLALL =$FFE7
118 AXOUT =$BDCD
120 STROUT =$AB1E
122 ANZPRG =4
124 GR =5
126 SETNAM =$FFBD
128 DN =$B8
130 NAMLEN =183
132 SA =$B9
134 LEN =251
136 RETURN =$AAD7
138 TSYS =158
140 BANK =1
142 TMP =166
144 CRS1 =$CC
146 CRS2 =$CD
148 CRS3 =$CF
150 NAME =820
152 ZEILE =214
154 SPACE =$AB3F
156 VIC =$D000
158 BILD =$D1
160 NAMBER =$CD00 ; 45 FILES A 17 ZEICHEN
162 CALC =$E9F0
166 TMP2 =181
168 SCRADR =648
170 SCRMEM =$D000
172 CLRSCR =$E544
174 SENDNAM =$F3D5
176 TALK =$FFB4
178 SECTALK =$FF96
180 IECIN =$FFA5
182 STATUS =$90
184 CLSFIL =$F642
186 FA =$BA
188 KEY =198
190 CLRX =59903
192 ALLE =139
194 LFD =140
196 CHKIN =$FFC6
198 FEHLER =704; FEHLERKANAL
200 REAL =141
202 LAST =142
204 AKTLEN =170
206 LENPOS =178
208 MEMEND =$BF00
210 SAVE =$FFD8
212 IOFLAG =157
214 RESET =65532
216 SUM =253
218 LAENGE =254
220 SPALTE =211
224 CURSOR =58732
900 BASE JMP LOSGEHTS
1000 HELP .ASC " BITTE GEBEN SIE DIE FILENAMEN DER MAX.
1002 .BYT 13:.[198] " 45 EINZELFILES EIN. '$': DIR. ANZEIGEN
1004 .BYT 13:.ASC " '*': FERTIG
1006 .BYT 13:.[198] " '?': KORREKTUR
1008 .BYT 13:.ASC " ':': DIR. LESEN":.BYT 13,0
1010 HOLNAM1 .BYT 13:.ASC " NAME DES ":BRK
1012 HOLNAM2 .ASC ". FILES ? ":BRK
1020 TASTE .BYT 13:.ASC " - WEITER MIT TASTE -":BRK
1022 ALSO .ASC " ES WURDEN ":BRK
1024 ALSO2 .ASC " FILES ERFASST.":.BYT 13
1026 .ASC " SIND DIE ALLE AUF EINER DISKETTE ? ":BRK
1030 GESASK .BYT 13:.ASC " GESAMTFILE - NAME ? ":BRK
1032 AUTOTXT .ASC " FILES AUS DIRECTORY EINLESEN.":.BYT 13
1033 .ASC " (J) FILE UEBERNEHMEN":.BYT 13
1034 .ASC " (N) FILE UEBERSPRINGEN":.BYT 13
1035 .ASC " (*) FERTIG":.BYT 13
1036 .ASC " (D) DISKETTE WECHSELN":.BYT 13
1037 .ASC " (A) ARC NEU STARTEN":BRK
1040 OHA .ASC " BEARBEITE FILE NR. ":BRK
1042 OHU .BYT 13:.ASC " NAME: ":BRK
1044 OHE .BYT 13:.ASC " - BITTE DISKETTE EINLEGEN -":BRK
1050 CSU .ASC " DISKFEHLER: ":BRK
1052 SPD .ASC " (V) NOCHMAL VERSUCHEN
1054 HOPE .BYT 13:.[198] " (N) NAECHSTES FILE
1056 .BYT 13:.ASC " (E) ENDE":BRK
1060 DAHIN .BYT 13:.ASC " LADEADRESSE : ":BRK
1062 LOADA .ASC " STARTADRESSE: ":BRK
1064 FULL .BYT 13:.ASC " FILE ZU LANG - SPEICHER VOLL !!":BRK
1070 JETZT .ASC " GESAMTFILE WIRD GESPEICHERT
1072 .BYT 13:.[198] " - BITTE DISKETTE EINLEGEN -":BRK
1074 JETZNED .[198] " ALLE FILES UEBERSPRUNGEN !":BRK
1080 ALK .BYT 13:.[198] " SPEICHERUNG BEENDET. ALLES OKAY.
1082 BOB .BYT 13:.ASC " PROGRAMM NOCHMAL STARTEN ? [J/N]":BRK
1084 WATNU .BYT 13:.ASC " (V) NOCHMAL VERSUCHEN
1086 .BYT 13:.[198] " (E) ENDE":BRK
1090 AUZER1 .[198] "STAND: ":BRK
1092 ANZER2 .[198] " VON MAX. 45 FILES ERFASST.":BRK
1094 AUZER3 .[198] "DISKETTE EINLEGEN!":BRK
1096 AUZER4 .[198] "DISKETTEN-NAME: ":BRK
1098 DIRNE .[198] "$0
1100 AUZER5 .ASC "FILE: ":BRK
1110 AUZLEN .ASC "BLOCK-SUMME: ":BRK
1120 ANZ2 .BYT 13:.ASC " FREI: ":BRK
1122 MOMANZ .ASC "LAENGE: ":BRK
2000 KOPF =*
2001 BAS =*
2002 .WOR ENDP,1990
2004 .BYT TSYS:.ASC "2061":BRK
2006 ENDP =*-BAS+ZIEL
2008 .WOR 0
2010 JSR CINT:JSR CLALL:LDA #6:STA VIC+32:STA VIC+33
2012 LDA FA:CMP #8:BCC SET8B:CMP #15:BCC OKAYB
2013 SET8B LDA #8:STA FA
2014 OKAYB LDA #<GENB:LDY #>GENB:STA PTR:STY PTR+1
2016 JSR HOL:STA ANZPRG:STY GR
2018 LDA #<TXT1:LDY #>TXT1:JSR STROUT
2020 FILELOOP INC GR:LDA #<TXT2:LDY #>TXT2:JSR STROUT:LDX GR:LDA #0:JSR AXOUT
2022 LDA #<TXT3:LDY #>TXT3:JSR STROUT:LDX ANZPRG:LDA #0:JSR AXOUT
2023 LDX PTR:LDY PTR+1:JSR SETNAM
2024 JSR HOL:BNE (null)N:LDA #<TXT4:LDY #>TXT4:JSR STROUT:JSR CLALL
2025 LDX GR:DEX:LDA #0:JSR AXOUT:JMP RETURN
2026 (null)N INY:STY NAMLEN:STY SA:STY DN
2028 GETNAM JSR HOL:BEQ HATES:INC NAMLEN:BNE GETNAM
2029 QFILELOOP BCC FILELOOP
2030 HATES LDA #54:STA BANK:JSR OPEN:INC BANK:LDX #1:JSR CHKOUT
2032 JSR HOL:JSR PRINT:JSR HOL:JSR PRINT
2034 JSR HOL:STA LEN:JSR HOL:STA LEN+1
2036 SAVEPRG LDA LEN:BNE NOCHWAS:LDA LEN+1:BEQ FERTIG:DEC LEN+1
2038 NOCHWAS DEC LEN:JSR HOL:JSR PRINT:CLC:BCC SAVEPRG
2040 FERTIG JSR CLRCHN:LDA #1:JSR CLOSE:CLC:BCC QFILELOOP
2100 HOL =*-BAS+ZIEL
2102 LDA #54:STA BANK
2104 LDY #0:LDA (PTR),Y:INC PTR:BNE LOOP1:INC PTR+1
2106 LOOP1 INC BANK:AND #$FF:RTS
2150 TXT1 =*-BAS+ZIEL
2151 ATXT1 .ASC "[142][147][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]
2152 .[198] "ARCHIVE V":.BYT SER1[170]48,".",SER2[170]48,32
2154 MODE .[198] "GEN VON NIKOLAUS HEUSLER
2156 .ASC "(C) NH-071290-ARR EIN NSS PROGRAMM
2158 .BYT 13
2160 ART .[198] "DIE FILES WERDEN ERZEUGT...":BRK
2162 TXT2 [178][172][171]BAS[170]ZIEL
2164 .BYT 13:.[198] "ONFILE ":BRK
2166 TXT3 [178][172][171]BAS[170]ZIEL
2168 .BYT 13:.[198] "ONVON ":BRK
2170 TXT4 [178][172][171]BAS[170]ZIEL
2172 .BYT 13:.[198] "ONFERTIG !! FILES GENERIERTCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMD":BRK
2190 [128]KOPF [178][172]
2200 GENB [178][172][171]BAS[170]ZIEL
2210 MEM[195] [178]MEM[128][171]GENB
2212 MEMBLK [178][177]MEM[195]
2900 SCHIEB [178][128]KOPF[171]KOPF[171]256
3000 COPYDOWN LDY #0
3002 COPY1 LDA KOPF,Y:STA ZIEL,Y
3004 LDA KOPF[170]SCHIEB,Y:STA ZIEL[170]SCHIEB,Y
3006 INY:BNE COPY1:RTS
3050 [156]PAG LDX #5
3052 CPG JSR [156]X:INX:CPX #24:BCC CPG:RTS
3100 [161]NAME JSR DELBER:LDX #0:STX [195]
3102 KEYLP LDA #0:STA CRS1
3104 WK JSR [161]:BEQ WK
3106 LDX #2:STX CRS2
3108 WX LDX CRS3:BNE WX
3110 INC CRS1:CMP #13:BNE TEXT:LDX [195]:BEQ KEYLP
3112 RTS
3114 TEXT CMP #20:BNE NODEL:LDX [195]:BEQ KEYLP:JSR [153]:DEC [195]:BPL KEYLP
3116 NODEL CMP #32:BCS OK1
3118 WR[145]G JMP KEYLP
3120 OK1 TAX:BPL OK:CMP #149:BCC WR[145]G:CMP #156:BCC OK:CMP #160:BCC WR[145]G
3122 OK LDX [195]:CPX #16:BCS KEYLP:STA NAME,X:JSR [153]:INC [195]:BNE KEYLP
3150 DELBER LDX #16:LDA #"CLOSE
3152 D1 JSR PRINT:DEX:BNE D1
3154 LDX #16:LDA #"[157]
3156 D2 JSR [153]:DEX:BNE D2:RTS
3200 CAX DEX:STX TMP2:LDA #0:STA TMP[170]1:TXA:LDX #4
3202 CAX1 ASL:ROL TMP[170]1:DEX:BNE CAX1:ADC TMP2:STA TMP:LDA TMP[170]1
3204 ADC #[177]NAMBER:STA TMP[170]1:RTS
3300 SCROLL LDX #11
3302 SCR1 JSR CALC:LDA BILD:STA TMP:LDA BILD[170]1:STA TMP[170]1
3304 INX:JSR CALC:LDY #39
3306 SCR2 LDA (BILD),Y:STA (TMP),Y:DEY:BPL SCR2
3308 CPX #23:BCC SCR1
3310 UP LDA #"ON":JMP [153]
3350 PUT LDY #0:STA (PTR),Y:INC PTR:BNE RAUS:INC PTR[170]1
3352 RAUS RTS
3360 [160]9 JSR [156]CHN:LDA #9:JMP [160]
3400 DIR LDY #0:STY TMP:STY TMP2:LDA SCRADR:STA TMP[170]1:LDA #[177]SCRMEM
3402 STA TMP2[170]1:LDX #48:SEI:STX BANK:LDX #4:LDA ZEILE:PHA
3404 COPY3 LDA (TMP),Y:STA (TMP2),Y:DEY:BNE COPY3:INC TMP[170]1:INC TMP2[170]1:DEX
3406 BNE COPY3:LDX #55:STX BANK:CLI:JSR [156]SCR
3408 LDX #[179]NAME:LDY #[177]NAME:LDA [195]:JSR SETNAM:LDA #$60:STA SA:JSR S[128]NAM
3410 LDA FA:JSR TALK:LDA SA:JSR SECTALK:LDA #0:STA STATUS:LDY #3
3412 L1 STY TMP:JSR IECIN:STA TMP[170]1:LDY STATUS:BNE L4:JSR IECIN:LDY STATUS
3414 BNE L4:LDY TMP:DEY:BNE L1:LDX TMP[170]1:JSR AXOUT:JSR SPACE
3416 L3 JSR IECIN:LDX STATUS:BNE L4:TAX:BEQ L2:JSR [153]:BCC L3
3418 L2 JSR [142]:LDY #2:BNE L1
3420 L4 JSR CLSFIL:LDA #[179]TASTE:LDY #[177]TASTE:JSR STROUT:JSR [146]KEY
3421 LDA #1:STA VIC[170]33:JSR [156]SCR:LDA #6:STA VIC[170]33
3422 PLA:STA ZEILE:LDX #48:SEI:STX BANK:LDX #4:LDA #[177]SCRMEM:STA TMP[170]1:LDY #0
3424 STY TMP:STY TMP2:LDA SCRADR:STA TMP2[170]1
3426 COPY2 LDA (TMP),Y:STA (TMP2),Y:DEY:BNE COPY2:INC TMP[170]1:INC TMP2[170]1
3428 DEX:BNE COPY2:LDX #55:STX BANK:CLI:RTS
3500 [146]KEY LDA #0:STA KEY
3502 WKK CMP KEY:BEQ WKK:DEC KEY:RTS
4000 LOSGEHTS JSR C[181]:JSR CLALL:LDA #6:STA VIC[170]32:STA VIC[170]33
4001 LDA FA:CMP #8:BCC SET8:CMP #15:BCC OKAY
4002 SET8 LDA #8:STA FA
4003 OKAY LDA #0:STA IOFLAG:STA ART:STA ANZPRG
4004 LDA #32:STA MODE:STA MODE[170]1:STA MODE[170]2
4006 LDA #[179]ATXT1:LDY #[177]ATXT1:JSR STROUT
4010 LDA #17:STA ART:LDA #"G":STA MODE:LDA #"E":STA MODE[170]1:LDA #"N
4012 STA MODE+2:LDA #<HELP:LDY #>HELP:JSR STROUT
4100 EING1 INC ANZPRG
4102 EING2 LDA #<HOLNAM1:LDY #>HOLNAM1:JSR STROUT:LDX ANZPRG:JSR XTAB
4104 LDA #<HOLNAM2:LDY #>HOLNAM2:JSR STROUT
4106 JSR GETNAME:LDA NAME:CMP #"*":BNE NOEND:LDA ANZPRG:CMP #2:BCS JAEND1
4108 STOP JSR UP:BCC EING2
4112 NOEND CMP #"?":BNE NOKOR:LDA ZEILE:CMP #12:BCC STOP
4114 DEC ANZPRG:JSR UP:BCC STOP
4116 NOKOR CMP #"$":BNE NODIR:JSR DIR:JMP STOP
4118 NODIR CMP #":":BNE NOAUT:JMP GETAUTO
4120 NOAUT LDX ANZPRG:CPX #46:BCS STOP:JSR CAX:LDY LEN:LDA #0:STA (TMP),Y:DEY
4122 TRANSNAM LDA NAME,Y:STA (TMP),Y:DEY:BPL TRANSNAM
4124 LDA ZEILE:CMP #23:BCC EING1:JSR SCROLL:JMP EING1
4200 JAEND1 DEC ANZPRG
4202 JAEND2 JSR CLRPAG
4204 LDA #<ALSO:LDY #>ALSO:JSR STROUT:LDX ANZPRG:JSR XOUT
4206 LDA #<ALSO2:LDY #>ALSO2:JSR STROUT:LDA #0:STA KEY
4208 WJN JSR GET:CMP #"J":BEQ OFF:CMP #"N":BNE WJN
4214 OFF JSR PRINT:SEC:SBC #"J":STA ALLE
4216 LDA #<GESASK:LDY #>GESASK:JSR STROUT:JSR GETNAME:LDA NAME:CMP #"*
4218 BEQ JA[128]2:CMP #"?":BEQ JA[128]2
4250 LDA #0:STA LFD:STA REAL:JSR COPYDOWN
4252 LDA #[179]GENB:LDY #[177]GENB:STA PTR:STY PTR[170]1:JSR PUT
4260 LDY #15:STY SA:STY DN:LDA #0:STA NAM[195]:JSR [159]
4300 MAIN INC LFD:LDX LFD:DEX:CPX ANZPRG:BNE SLEEP:JMP [128]E
4301 SLEEP LDX #5:LDA PTR:STA LAST:LDA PTR[170]1:STA LAST[170]1
4302 [156]P2 JSR [156]X:INX:CPX #19:BCC [156]P2
4304 LDA #[179]OHA:LDY #[177]OHA:JSR STROUT:LDA #0:LDX LFD:JSR XOUT
4306 LDA #[179]OHU:LDY #[177]OHU:JSR STROUT:LDX LFD:JSR CAX:LDA TMP:LDY TMP[170]1
4308 JSR STROUT
4316 LDA ALLE:BMI WEITER:LDA #[179]OHE:LDY #[177]OHE:JSR STROUT:JSR [146]KEY
4318 LDX #11:JSR [156]X:LDA ALLE:BNE WEITER:LDA #[171]1:STA ALLE
4320 WEITER LDY #[171]1
4322 WTR INY:LDA (TMP),Y:STY TMP2:JSR PUT:LDY TMP2:TAX:BNE WTR:TYA:LDX TMP
4324 LDY TMP[170]1:JSR SETNAM:LDA #0:STA SA:LDA #9:STA DN:JSR [159]
4326 LDX #15:JSR CHKIN:LDX #[171]1
4328 [161]ERR INX:JSR [161]:STA FEHLER,X:CMP #13:BNE [161]ERR:LDA #0:STA FEHLER[170]1,X
4330 JSR [156]CHN:LDA FEHLER:CMP #"0":BEQ AECHTZ
4331 JSR [160]9
4332 LDA #[179]CSU:LDY #[177]CSU:JSR STROUT:LDA #[179]FEHLER:LDY #[177]FEHLER:JSR STROUT
4334 LDA #[179]SPD:LDY #[177]SPD:JSR STROUT
4336 GTI JSR [161]:CMP #"E":BNE NOE
4337 HALT LDA LAST:STA PTR:LDA LAST[170]1:STA PTR[170]1:JMP [128]E
4338 NOE CMP #"V":BNE NOV:DEC LFD
4339 QMAIN LDA LAST:STA PTR:LDA LAST[170]1:STA PTR[170]1:JMP MAIN
4340 NOV CMP #"N":BNE GTI:BEQ QMAIN
4350 AECHTZ LDX #9:JSR CHKIN:JSR [161]:JSR PUT:PHA:JSR [161]:JSR PUT:PHA
4352 LDA #[179][147]A:LDY #[177][147]A:JSR STROUT:PLA:TAY:PLA:TAX:TYA:JSR AXOUT
4354 LDA PTR:STA [195][185]:LDA PTR[170]1:STA [195][185][170]1:LDA #0:STA AKT[195]:STA AKT[195][170]1
4356 JSR PUT:JSR PUT:LDA #[179]DAHIN:LDY #[177]DAHIN:JSR STROUT:LDX PTR:LDA PTR[170]1
4358 JSR AXOUT
4400 [147]LOOP JSR IECIN:TAX:LDA STATUS:LSR:LSR:BCS AB[176]T
4402 TXA:JSR PUT:INC AKT[195]:BNE NOINC:INC AKT[195][170]1
4404 NOINC LDA PTR[170]1:CMP #[177]MEM[128]:BCC [147]LOOP
4406 JSR [160]9:LDA #[179]FULL:LDY #[177]FULL:JSR STROUT
4408 LDA #[179]HOPE:LDY #[177]HOPE:JSR STROUT:LDA #0:STA KEY
4410 [161]NE JSR [161]:CMP #"E":BEQ QHALT:CMP #"N":BNE [161]NE:JMP QMAIN
4412 QHALT JMP HALT
4450 AB[176]T JSR [160]9
4452 LDY #0:LDA AKT[195]:STA ([195][185]),Y:INY:LDA AKT[195][170]1:STA ([195][185]),Y
4454 INC REAL:JMP MAIN
4500 [128]E LDA #0:JSR PUT
4502 [128] LDX #5
4504 [156]PG3 JSR [156]X:INX:CPX #19:BCC [156]PG3:LDA REAL:BEQ NIXDRIN:STA GENB
4505 LDA #[179]JETZT:LDY #[177]JETZT:JSR STROUT:JSR [146]KEY:LDX #7:JSR [156]X
4506 LDA [195]:LDX #[179]NAME:LDY #[177]NAME:JSR SETNAM
4508 LDA #54:STA BANK:LDX PTR:LDY PTR[170]1:LDA #[179]ZIEL:STA TMP:LDA #[177]ZIEL:STA TMP[170]1
4509 LDA #TMP:JSR [148]:INC BANK
4510 LDX #15:JSR CHKIN:LDX #[171]1
4512 [161]ERR2 INX:JSR [161]:STA FEHLER,X:CMP #13:BNE [161]ERR2:LDA #0:STA FEHLER[170]1,X
4514 JSR [156]CHN:LDA FEHLER:CMP #"0":BEQ AECHTZ2
4515 JSR [160]9:LDA #[179]CSU:LDY #[177]CSU:JSR STROUT:LDA #[179]FEHLER:LDY #[177]FEHLER
4516 JSR STROUT:LDA #[179]W[193]U:LDY #[177]W[193]U:JSR STROUT:LDA #0:STA KEY
4517 WAT JSR [161]:CMP #"E":BEQ [129]T:CMP #"V":BNE WAT:JMP [128]
4518 NIXDRIN LDA #[179]JETZNED:LDY #[177]JETZNED:JSR STROUT
4520 AECHTZ2 LDA #15:JSR [160]:LDA #[179]ALK:LDY #[177]ALK
4521 SOUT JSR STROUT:LDA #0:STA KEY
4522 ERWJN JSR [161]:CMP #"N":BNE LIVE:JMP (RESET)
4524 LIVE CMP #"J":BNE ERWJN
4526 NEUSTART JMP (BASE[170]1)
4528 [129]T LDA #[179]BOB:LDY #[177]BOB:BNE SOUT
4600 [161]AU[164] JSR [156]PAG:LDA #[179]AU[164]TXT:LDY #[177]AU[164]TXT:JSR STROUT
4602 LDA #0:STA SUM
4610 EIL1 JSR BLOCKOUT:LDX #19:JSR LINX:LDA #[179]AUZER1:LDY #[177]AUZER1:JSR STROUT
4612 LDX ANZPRG:DEX:JSR XTAB:LDA #[179]ANZER2:LDY #[177]ANZER2:JSR STROUT
4620 LDX #16:JSR [156]X
4621 LDX #14:JSR [156]X:JSR LINX:LDA #[179]AUZER3:LDY #[177]AUZER3:JSR STROUT
4622 DISKW JSR [146]KEY:INC KEY:JSR [161]:CMP #"A":BEQ NEUSTART
4624 LDX #[179]DIRNE:LDY #[177]DIRNE:LDA #2:JSR SETNAM:LDA #$60:STA SA:JSR S[128]NAM
4626 LDA FA:JSR TALK:LDA SA:JSR SECTALK:LDA #0:STA STATUS:LDY #8:JSR SKIP
4628 BCC D
4629 VNODISK JMP NODISK
4630 D LDX #14:JSR LINX:LDA #[179]AUZER4:LDY #[177]AUZER4:JSR STROUT:LDA #34:JSR [153]
4632 NAMOUT JSR IECIN:LDX STATUS:BNE VNODISK:JSR [153]:CMP #34:BNE NAMOUT
4640 SUCH0 JSR IECIN:LDX STATUS:BNE VNODISK:TAX:BNE SUCH0
4642 LDY #2:JSR SKIP
4643 QNODISK BCS VNODISK:JSR IECIN:PHA:JSR IECIN:PLA:STA LAENGE
4644 SUCH[165] JSR IECIN:LDX STATUS:BNE NODISK:CMP #34:BNE SUCH[165]
4646 LDX #16:JSR LINX
4647 LDA #[179]AUZER5:LDY #[177]AUZER5:JSR STROUT:LDA #34:JSR [153]
4648 LDX #0
4650 OT[164] STX [195]:JSR IECIN:LDX STATUS:BNE NODISK:LDX [195]
4652 CMP #34:BEQ [128]NAM:STA NAME,X:INX:BNE OT[164]
4654 [128]NAM LDA #0:STA NAME,X:LDA #[179]NAME:LDY #[177]NAME:JSR STROUT:LDA #34:JSR [153]
4656 LDA #28:STA SPALTE:LDA #[179]MOMANZ:LDY #[177]MOMANZ:JSR STROUT:LDX LAENGE:JSR XOUT
4660 WAHL JSR [161]:CMP #"A":BEQ QNEUSTART
4662 CMP #"*":BNE NOFINI:LDA ANZPRG:CMP #2:BCC WAHL:JSR CLSFIL:JMP JA[128]1
4663 QNEUSTART JMP NEUSTART
4664 NOFINI CMP #"D":BNE N[145]EW
4666 NODISK JSR CLSFIL:JMP EIL1
4668 N[145]EW CMP #"N":BEQ [130][145]E:CMP #"MID$":BEQ SHFTJ:CMP #"J":BNE WAHL
4670 LDA #MEMBLK:CMP SUM:BCC WAHL:SBC SUM:CMP LAENGE:BCC WAHL
4674 SHFTJ LDX ANZPRG:CPX #46:BCS WAHL:JSR CAX:LDY [195]
4676 TRANSNM LDA NAME,Y:STA (TMP),Y:DEY:BPL TRANSNM:INC ANZPRG
4678 LDA LAENGE:CLC:ADC SUM:BCC BCARRY:LDA #[171]1
4679 BCARRY STA SUM:JSR BLOCKOUT
4680 [130][145]E LDX #16:JSR [156]X
4681 LDX #19:JSR LINX:LDA #[179]AUZER1:LDY #[177]AUZER1:JSR STROUT
4682 LDX ANZPRG:DEX:JSR XTAB:LDA #[179]ANZER2:LDY #[177]ANZER2:JSR STROUT
4684 JMP SUCH0
4700 SKIP STY TMP:JSR IECIN:LDA STATUS:BEQ OKST:SEC:RTS
4702 OKST LDY TMP:DEY:BNE SKIP:CLC:RTS
4800 BLOCKOUT LDX #21:JSR LINX:LDA #[179]AUZ[195]:LDY #[177]AUZ[195]:JSR STROUT
4802 LDX SUM:JSR XHUN:LDA #[179]ANZ2:LDY #[177]ANZ2:JSR STROUT:LDA #MEMBLK
4804 CMP SUM:BCC ZERO[184]:SBC SUM:.BYT $2C
4806 ZERO[184] LDA #0:TAX
4810 XHUN CPX #100:BCS XOUT:JSR SPACE
4812 XTAB CPX #10:BCS XOUT:JSR SPACE
4818 XOUT LDA #0:JMP AXOUT
4820 LINX LDA #1:STA SPALTE:STX ZEILE:JMP CURS[176]